home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d18 / totdem.arc / DEMIO6.PAS < prev    next >
Pascal/Delphi Source File  |  1991-02-10  |  442b  |  23 lines
  1. program DemoIOSix;
  2. {demIO6 - single string field input}
  3.  
  4. Uses DOS, CRT,
  5.      totFAST, totIO1, totIO2, totSTR;
  6.  
  7. var
  8.   Field: StringIOOBJ;
  9.  
  10. begin
  11.    with Field do
  12.    begin
  13.       Init(40,5,10);
  14.       SetLabel('Field (StringIOOBJ)');
  15.       SetCase(upper);
  16.       SetValue('hello');
  17.       SetRules(EraseDefault+JumpIfFull);
  18.       clrscr;
  19.       Activate;
  20.       writeln;writeln('You entered ',GetValue);
  21.       Done;
  22.    end;
  23. end.